|
1000
|
It is possible to clip the bar's caption to bar, when the time scale is changed
with thisform.G2antt1
.Columns.Add("Task")
with .Chart
.PaneWidth(0) = 48
.FirstVisibleDate = {^2000-12-27}
with .Bars.Item("Task")
.Pattern = 32
.Height = 13
endwith
endwith
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1","This is a bit of text that get's clipped")
.DefaultItem = h
.ItemBar(0,"K1",4) = 4
.DefaultItem = h
.ItemBar(0,"K1",6) = .ItemBar(h,"K1",3)
h = .AddItem("Task 2")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1","This is a bit of text that is not clipped")
.DefaultItem = h
.ItemBar(0,"K1",4) = 1
endwith
endwith
|
|
999
|
How can I change the color for all bars with the key matching a pattern
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 64
.Debug = .T.
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"A")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"B1")
.AddBar(h,"Task",{^2001-1-8},{^2001-1-17},"B2")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"B4")
.ItemBar(0,"<B*>",33) = 255
endwith
endwith
|
|
998
|
How can I change the color for all bars in the same item with the key matching a pattern
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 64
.Debug = .T.
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"A")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"B1")
.AddBar(h,"Task",{^2001-1-8},{^2001-1-17},"B2")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
.DefaultItem = h
.ItemBar(0,"<B*>",33) = 255
endwith
endwith
|
|
997
|
How can I change the color for all bars in the same item
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"K2")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
.DefaultItem = h
.ItemBar(0,"<*>",33) = 255
endwith
endwith
|
|
996
|
How can I write a special number for each date related to a bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 32
.LevelCount = 2
endwith
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-13},"1")
endwith
with .Chart.Notes
with .Add("N1",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+2"
.PartText(0) = "4"
.PartFixedWidth(0) = 18
.PartHOffset(0) = -9
.PartBackColor(0) = RGB(255,255,0)
.ShowLink = 0
.PartVisible(0) = .T.
endwith
with .Add("N2",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+3"
.PartText(0) = "4"
.PartFixedWidth(0) = 18
.PartHOffset(0) = -9
.PartBackColor(0) = RGB(255,255,0)
.ShowLink = 0
.PartVisible(0) = .T.
endwith
with .Add("N3",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+4"
.PartText(0) = "5"
.PartFixedWidth(0) = 18
.PartHOffset(0) = -9
.PartBackColor(0) = RGB(0,255,0)
.ShowLink = 0
.PartVisible(0) = .T.
endwith
with .Add("N4",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+5"
.PartText(0) = "5"
.PartFixedWidth(0) = 18
.PartHOffset(0) = -9
.PartBackColor(0) = RGB(0,255,0)
.ShowLink = 0
.PartVisible(0) = .T.
endwith
with .Add("N5",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+6"
.PartText(0) = "8"
.PartFixedWidth(0) = 18
.PartHOffset(0) = -9
.PartBackColor(0) = RGB(255,0,0)
.ShowLink = 0
.PartVisible(0) = .T.
endwith
with .Add("Z",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "E"
.PartText(0) = "4"
.PartFixedWidth(0) = 18
.PartHOffset(0) = -9
.PartBackColor(0) = RGB(255,128,0)
.PartCanMove(0) = .T.
.ShowLink = 0
.PartVisible(0) = .T.
endwith
endwith
.EndUpdate
endwith
|
|
995
|
How can I assign a note to be always in the center of the bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
endwith
with .Chart.Notes
with .Add("Note",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = 0.5
.PartText(0) = "note<br>center"
.PartBackColor(0) = RGB(255,255,0)
.PartVisible(1) = .F.
.ShowLink = 0
endwith
endwith
.EndUpdate
endwith
|
|
994
|
How can I assign a note relative to the start of the bar, and let it be movable
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
endwith
with .Chart.Notes
with .Add("Note",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+1"
.PartText(0) = "<%d%>"
.PartFixedWidth(0) = 18
.PartHOffset(0) = 9
.PartCanMove(0) = .T.
.PartBackColor(0) = RGB(255,255,0)
.PartVisible(1) = .F.
.ShowLink = 0
endwith
endwith
.EndUpdate
endwith
|
|
993
|
How can I associate a note relative to the start of the bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
endwith
with .Chart.Notes
with .Add("Note",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+1"
.PartText(0) = "<%d%>"
.PartFixedWidth(0) = 18
.PartHOffset(0) = 9
.PartBackColor(0) = RGB(255,255,0)
.PartVisible(1) = .F.
.ShowLink = 0
endwith
endwith
.EndUpdate
endwith
|
|
992
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
endwith
with .Chart.Notes
with .Add("Note",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "E-1"
.PartText(0) = "<%d%>"
.PartFixedWidth(0) = 18
.PartHOffset(0) = 9
.PartVisible(1) = .F.
.ShowLink = 0
endwith
endwith
.EndUpdate
endwith
|
|
991
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
endwith
with .Chart.Notes
with .Add("Note",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = 1
.PartText(0) = "End"
.PartVisible(1) = .F.
.ShowLink = 0
endwith
endwith
.EndUpdate
endwith
|
|
990
|
How can I hide a bar without removing it
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
.LevelCount = 2
endwith
.HeaderVisible = 1
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4},"B1")
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-6},{^2001-1-14},"B2")
.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
.DefaultItem = .FirstVisibleItem
.ItemBar(0,.FirstItemBar(.FirstVisibleItem),19) = 100
endwith
.EndUpdate
endwith
|
|
989
|
How can I align the caption in the note
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
endwith
with .Chart.Notes
with .Add("N1",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.ShowLink = 0
.PartVisible(1) = .F.
.PartText(0) = "S <b><%dd%></b>"
.PartFixedWidth(0) = 48
.PartAlignment(0) = 0
.PartVOffset(0) = 17
endwith
with .Add("N2",thisform.G2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = 1
.ShowLink = 0
.PartVisible(1) = .F.
.PartText(0) = "E <b><%dd%></b>"
.PartFixedWidth(0) = 48
.PartAlignment(0) = 2
.PartVOffset(0) = 17
endwith
endwith
.EndUpdate
endwith
|
|
988
|
How I can assign a note and let user move the note relative to the bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
endwith
with .Chart.Notes
with .Add("Note",thisform.G2antt1.Items.FirstVisibleItem,"1","End")
.PartText(0) = "Day<br> <%dd%>"
.PartCanMove(0) = .T.
.PartVOffset(0) = 16
.PartTransparency(0) = 30
.PartToolTip(0) = "Click the note and start moving to a new position."
endwith
endwith
.EndUpdate
endwith
|
|
987
|
How can I assign a picture as a note associated with a bar
with thisform.G2antt1
.BeginUpdate
.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.AntiAliasing = .T.
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
h = .AddItem("Task 2")
.AddBar(h,"Task",{^2001-1-7},{^2001-1-11},"2")
endwith
with .Chart.Notes
with .Add("1",thisform.G2antt1.Items.ItemByIndex(0),"1","<img>pic1</img>")
.PartShadow(1) = .F.
.PartBorderSize(1) = 0
.ClearPartBackColor(1)
.PartHOffset(1) = -64
.PartCanMove(1) = .T.
endwith
with .Add("2",thisform.G2antt1.Items.ItemByIndex(1),"2","<img>pic2</img>")
.PartShadow(1) = .F.
.PartBorderSize(1) = 0
.ClearPartBackColor(1)
.RelativePosition = 1
.PartCanMove(1) = .T.
.LinkColor = RGB(255,0,0)
.LinkWidth = 2
.LinkStyle = 2
.ShowLink = 1
endwith
endwith
.EndUpdate
endwith
|
|
986
|
How can I assign a picture as a note associated with a bar
with thisform.G2antt1
.BeginUpdate
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.AntiAliasing = .T.
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1")
h = .AddItem("Task 2")
.AddBar(h,"Task",{^2001-1-7},{^2001-1-11},"2")
endwith
with .Chart.Notes
with .Add("1",thisform.G2antt1.Items.ItemByIndex(0),"1","<img>1</img>")
.PartShadow(1) = .F.
.PartBorderSize(1) = 0
.ClearPartBackColor(1)
endwith
with .Add("2",thisform.G2antt1.Items.ItemByIndex(1),"2","<img>2</img>...<img>3</img>")
.PartShadow(1) = .F.
.PartBorderSize(1) = 0
.ClearPartBackColor(1)
.RelativePosition = 1
.PartCanMove(1) = .T.
.LinkColor = RGB(255,0,0)
.LinkWidth = 2
.LinkStyle = 2
endwith
endwith
.EndUpdate
endwith
|
|
985
|
How can I put a box assigned to a DATE
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Item 1")
h = .AddItem("Item 2")
endwith
with .Chart.Notes
with .Add("D1",thisform.G2antt1.Items.FirstVisibleItem,thisform.G2antt1.Chart.FirstVisibleDate,"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
.PartCanMove(1) = .T.
.PartVOffset(1) = 20
.PartHOffset(1) = 20
endwith
with .Add("D2",thisform.G2antt1.Items.NextVisibleItem(thisform.G2antt1.Items.FirstVisibleItem),{^2001-1-7},"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
.PartVisible(0) = .T.
.PartText(0) = "<b><%d%></b>"
.PartCanMove(1) = .T.
.PartVOffset(1) = 20
.PartHOffset(1) = 20
endwith
endwith
.EndUpdate
endwith
|
|
984
|
How can I add a note or a box associated with a bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"1","Center")
.DefaultItem = h
.ItemBar(0,"1",44) = "left"
.DefaultItem = h
.ItemBar(0,"1",45) = 16
h = .AddItem("Task 2")
.AddBar(h,"Task",{^2001-1-7},{^2001-1-11},"2","Center")
.DefaultItem = h
.ItemBar(0,"2",44) = "right"
.DefaultItem = h
.ItemBar(0,"2",45) = 18
endwith
with .Chart.Notes
.Add("1S",thisform.G2antt1.Items.FirstVisibleItem,"1","Start")
.Add("1F",thisform.G2antt1.Items.FirstVisibleItem,"1","End").RelativePosition = 1
endwith
.EndUpdate
endwith
|
|
983
|
Is it possible to define different working hours for every week day
with thisform.G2antt1
.BeginUpdate
with .Chart
.PaneWidth(0) = 14
.NonworkingDays = 0
.NonworkingHours = 0
.FirstVisibleDate = {^2001-1-1}
.LevelCount = 2
with .Level(0)
.Alignment = 1
.Label = "<%dddd%>"
endwith
with .Level(1)
.Label = "<%hh%>"
.Count = 6
endwith
.UnitWidth = 16
endwith
.Columns.Add("")
with .Items
h = .AddItem(1)
.DefaultItem = h
.ItemNonworkingUnits(0,.F.) = "weekday(value) != 1 or (weekday(value) = 1 and not ( hour(value) >= 9 and hour(value) <= 14 ))"
h = .AddItem(2)
.DefaultItem = h
.ItemNonworkingUnits(0,.F.) = "weekday(value) = 2 and ( hour(value) >= 9 and hour(value) <= 14 )"
h = .AddItem(3)
.DefaultItem = h
.ItemNonworkingUnits(0,.F.) = "weekday(value) = 3"
endwith
.EndUpdate
endwith
|
|
982
|
How can I automatically update the exBarPercent value using a slider control
with thisform.G2antt1
.BeginUpdate
.Items.AllowCellValueToItemBar = .T.
with .Chart
.FirstVisibleDate = {^2002-1-1}
.PaneWidth(0) = 128
.Bars.Add("Task%Progress").Shortcut = "Percent"
endwith
with .Columns.Add("Percent")
.Def(18) = 518
.Def(19) = "P"
endwith
with .Items
i = .AddItem(0)
.DefaultItem = i
.CellBold(0,0) = .T.
.CellEditor(i,0).EditType = 20
.AddBar(i,"Percent",{^2002-1-2},{^2002-1-6},"P")
.DefaultItem = i
.ItemBar(0,"P",14) = .T.
.DefaultItem = i
.CellValue(0,0) = 50
endwith
.EndUpdate
endwith
|
|
981
|
Is there any automatic way to change a property for all bars in the chart
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K2")
.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K3")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
.ItemBar(0,"<*>",33) = 255
endwith
endwith
|
|
980
|
How can I assign an icon to a bar and I get notified when I click it
with thisform.G2antt1
.BeginUpdate
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-10},"","Caption")
.DefaultItem = h
.ItemBar(0,"",44) = "<a1><img>1:8</img></a><a1><img>2</img></a>"
.DefaultItem = h
.ItemBar(0,"",45) = 16
.DefaultItem = h
.ItemBar(0,"",47) = 5
endwith
.EndUpdate
endwith
|
|
979
|
How can I assign an icon to a bar so I do not break its caption
with thisform.G2antt1
.BeginUpdate
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-10},"","Caption")
.DefaultItem = h
.ItemBar(0,"",44) = "<img>1</img>"
.DefaultItem = h
.ItemBar(0,"",45) = 16
.DefaultItem = h
.ItemBar(0,"",47) = 5
.DefaultItem = h
.ItemBar(0,"",48) = 2
endwith
.EndUpdate
endwith
|
|
978
|
How can I assign multiple lables to the same bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2001-1-5},{^2001-1-7},"","Right")
.DefaultItem = h1
.ItemBar(0,"",4) = 18
.AddBar(h1,"",{^2001-1-5},{^2001-1-5},"T1","Left")
.DefaultItem = h1
.ItemBar(0,"T1",4) = 16
.AddBar(h1,"",{^2001-1-5},{^2001-1-7},"T2","Center")
.GroupBars(h1,"",.T.,h1,"T1",.T.)
.GroupBars(h1,"",.T.,h1,"T1",.F.)
.GroupBars(h1,"",.T.,h1,"T2",.T.)
.GroupBars(h1,"",.F.,h1,"T2",.F.)
endwith
.EndUpdate
endwith
|
|
977
|
Is there any way to have more Captions on a bar than one
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2001-1-5},{^2001-1-7},"","Right")
.DefaultItem = h1
.ItemBar(0,"",4) = 18
.AddBar(h1,"",{^2001-1-5},{^2001-1-5},"T1","Left")
.DefaultItem = h1
.ItemBar(0,"T1",4) = 16
.GroupBars(h1,"",.T.,h1,"T1",.T.)
.GroupBars(h1,"",.T.,h1,"T1",.F.)
endwith
.EndUpdate
endwith
|
|
976
|
How can I assign multiple lables to the same bar at once
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 96
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"","Center")
.DefaultItem = h
.ItemBar(0,"",44) = "left"
.DefaultItem = h
.ItemBar(0,"",45) = 16
h = .AddItem("Task 2")
.AddBar(h,"Task",{^2001-1-7},{^2001-1-11},"","Center")
.DefaultItem = h
.ItemBar(0,"",44) = "right"
.DefaultItem = h
.ItemBar(0,"",45) = 18
endwith
.EndUpdate
endwith
|
|
975
|
How can I limit the duration or length of the bar
with thisform.G2antt1
.BeginUpdate
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.ScrollRange(0) = {^2001-1-1}
.Chart.ScrollRange(1) = {^2001-1-7}
.Chart.PaneWidth(0) = 128
.Columns.Add("Column")
with .Items
h = .AddItem("Item 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5})
.DefaultItem = h
.ItemBar(0,"",36) = 2
.DefaultItem = h
.ItemBar(0,"",37) = 5
.DefaultItem = h
.ItemBar(0,"",3) = "Min=2 / Max=5"
.DefaultItem = h
.ItemBar(0,"",4) = 18
endwith
.EndUpdate
endwith
|
|
974
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
with thisform.G2antt1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.HasLines = 0
.Columns.Add("Default")
with .Items
h = .AddItem("Root")
hC = .InsertItem(h,Null,"Default")
.DefaultItem = hC
.ItemBackColor(0) = 0x1000000
.DefaultItem = .InsertItem(h,Null,"")
.ItemHeight(0) = 6
hC = .InsertItem(h,Null,"Light Green")
.DefaultItem = hC
.ItemBackColor(0) = 0x100ff00
.DefaultItem = hC
thisform.G2antt1.Chart.ItemBackColor(0) = 0x100ff00
.DefaultItem = .InsertItem(h,Null,"")
.ItemHeight(0) = 6
hC = .InsertItem(h,Null,"Dark Green")
.DefaultItem = hC
.ItemBackColor(0) = 0x1007f00
.DefaultItem = .InsertItem(h,Null,"")
.ItemHeight(0) = 6
hC = .InsertItem(h,Null,"Magenta")
.DefaultItem = hC
.ItemBackColor(0) = 0x1ff7fff
.DefaultItem = .InsertItem(h,Null,"")
.ItemHeight(0) = 6
hC = .InsertItem(h,Null,"Yellow")
.DefaultItem = hC
.ItemBackColor(0) = 0x17fffff
.DefaultItem = .InsertItem(h,Null,"")
.ItemHeight(0) = 6
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
973
|
I need to specify the non-working hours for about 100 days for each item, but the scrolling is very slow. Is there any option to increase the speed
with thisform.G2antt1
.BeginUpdate
.AllowChartScrollPage = .T.
.Columns.Add("Non-Work")
with .Chart
.FirstVisibleDate = {^2009-4-4 16:00:00}
.PaneWidth(0) = 52
.LevelCount = 2
.UnitWidth = 16
with .Level(0)
.Label = "<r><%d%>-<%mmm%>"
.Unit = 4096
endwith
with .Level(1)
.Label = "<%hh%>"
.Unit = 65536
.Count = 2
endwith
endwith
with .Items
.AddItem("Default")
.DefaultItem = .AddItem("Test")
var_s = "date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 12; #4/6/2009# : hour(value) >= 6 and hou"
var_s = var_s + "r(value) <= 12; #4/7/2009# : hour(value) >= 6 and hour(value) <= 12; #4/8/2009# : hour(value) >= 6 and hour(value) <= 12; #4/9/2"
var_s = var_s + "009# : hour(value) >= 6 and hour(value) <= 12; #4/10/2009# : hour(value) >= 6 and hour(value) <= 12; #4/11/2009# : hour(value) >"
var_s = var_s + "= 6 and hour(value) <= 12; #4/12/2009# : hour(value) >= 6 and hour(value) <= 12; #4/13/2009# : hour(value) >= 6 and hour(value) "
var_s = var_s + "<= 12; #4/14/2009# : hour(value) >= 6 and hour(value) <= 12; #4/15/2009# : hour(value) >= 6 and hour(value) <= 12; #4/16/2009# :"
var_s = var_s + " hour(value) >= 6 and hour(value) <= 12; #4/17/2009# : hour(value) >= 6 and hour(value) <= 12; #4/18/2009# : hour(value) >= 6 an"
var_s = var_s + "d hour(value) <= 12; #4/19/2009# : hour(value) >= 6 and hour(value) <= 12; #4/20/2009# : hour(value) >= 6 and hour(value) <= 12;"
var_s = var_s + " #4/21/2009# : hour(value) >= 6 and hour(value) <= 12; #4/22/2009# : hour(value) >= 6 and hour(value) <= 12; #4/23/2009# : hour("
var_s = var_s + "value) >= 6 and hour(value) <= 12; #4/24/2009# : hour(value) >= 6 and hour(value) <= 12; #4/25/2009# : hour(value) >= 6 and hour"
var_s = var_s + "(value) <= 12; #4/26/2009# : hour(value) >= 6 and hour(value) <= 12; #4/27/2009# : hour(value) >= 6 and hour(value) <= 12; #4/28"
var_s = var_s + "/2009# : hour(value) >= 6 and hour(value) <= 12; #4/29/2009# : hour(value) >= 6 and hour(value) <= 12; #4/30/2009# : hour(value)"
var_s = var_s + " >= 6 and hour(value) <= 12; #5/1/2009# : hour(value) >= 6 and hour(value) <= 12; #5/2/2009# : hour(value) >= 6 and hour(value) "
var_s = var_s + "<= 12; #5/3/2009# : hour(value) >= 6 and hour(value) <= 12; #5/4/2009# : hour(value) >= 6 and hour(value) <= 12; #5/5/2009# : ho"
var_s = var_s + "ur(value) >= 6 and hour(value) <= 12; #5/6/2009# : hour(value) >= 6 and hour(value) <= 12; #5/7/2009# : hour(value) >= 6 and hou"
var_s = var_s + "r(value) <= 12; #5/8/2009# : hour(value) >= 6 and hour(value) <= 12; #5/9/2009# : hour(value) >= 6 and hour(value) <= 12; #5/10/"
var_s = var_s + "2009# : hour(value) >= 6 and hour(value) <= 12; #5/11/2009# : hour(value) >= 6 and hour(value) <= 12; #5/13/2009# : hour(value) "
var_s = var_s + ">= 6 and hour(value) <= 12; #5/14/2009# : hour(value) >= 6 and hour(value) <= 12; #5/15/2009# : hour(value) >= 6 and hour(value)"
var_s = var_s + " <= 12; #5/16/2009# : hour(value) >= 6 and hour(value) <= 12; #5/17/2009# : hour(value) >= 6 and hour(value) <= 12; #5/18/2009# "
var_s = var_s + ": hour(value) >= 6 and hour(value) <= 12; #5/19/2009# : hour(value) >= 6 and hour(value) <= 12; #5/20/2009# : hour(value) >= 6 a"
var_s = var_s + "nd hour(value) <= 12; #5/21/2009# : hour(value) >= 6 and hour(value) <= 12; #5/22/2009# : hour(value) >= 6 and hour(value) <= 12"
var_s = var_s + "; #5/23/2009# : hour(value) >= 6 and hour(value) <= 12; #5/24/2009# : hour(value) >= 6 and hour(value) <= 12; #5/25/2009# : hour"
var_s = var_s + "(value) >= 6 and hour(value) <= 12; #5/26/2009# : hour(value) >= 6 and hour(value) <= 12; #5/27/2009# : hour(value) >= 6 and hou"
var_s = var_s + "r(value) <= 12; #5/28/2009# : hour(value) >= 6 and hour(value) <= 12; #5/29/2009# : hour(value) >= 6 and hour(value) <= 12; #5/3"
var_s = var_s + "0/2009# : hour(value) >= 6 and hour(value) <= 12; #5/31/2009# : hour(value) >= 6 and hour(value) <= 12; #6/1/2009# : hour(value)"
var_s = var_s + " >= 6 and hour(value) <= 12; #6/2/2009# : hour(value) >= 6 and hour(value) <= 12; #6/3/2009# : hour(value) >= 6 and hour(value) "
var_s = var_s + "<= 12; #6/4/2009# : hour(value) >= 6 and hour(value) <= 12; #6/5/2009# : hour(value) >= 6 and hour(value) <= 12; #6/6/2009# : ho"
var_s = var_s + "ur(value) >= 6 and hour(value) <= 12; #6/7/2009# : hour(value) >= 6 and hour(value) <= 12; #6/8/2009# : hour(value) >= 6 and hou"
var_s = var_s + "r(value) <= 12; #6/9/2009# : hour(value) >= 6 and hour(value) <= 12; #6/10/2009# : hour(value) >= 6 and hour(value) <= 12; #6/11"
var_s = var_s + "/2009# : hour(value) >= 6 and hour(value) <= 12; #6/12/2009# : hour(value) >= 6 and hour(value) <= 12; #6/13/2009# : hour(value)"
var_s = var_s + " >= 6 and hour(value) <= 12; #6/14/2009# : hour(value) >= 6 and hour(value) <= 12; #6/15/2009# : hour(value) >= 6 and hour(value"
var_s = var_s + ") <= 12; #6/16/2009# : hour(value) >= 6 and hour(value) <= 12; #6/17/2009# : hour(value) >= 6 and hour(value) <= 12; #6/18/2009#"
var_s = var_s + " : hour(value) >= 6 and hour(value) <= 12; #6/19/2009# : hour(value) >= 6 and hour(value) <= 12; #6/21/2009# : hour(value) >= 6 "
var_s = var_s + "and hour(value) <= 12; #6/22/2009# : hour(value) >= 6 and hour(value) <= 12; #6/23/2009# : hour(value) >= 6 and hour(value) <= 1"
var_s = var_s + "2; #6/24/2009# : hour(value) >= 6 and hour(value) <= 12; #6/25/2009# : hour(value) >= 6 and hour(value) <= 12; #6/26/2009# : hou"
var_s = var_s + "r(value) >= 6 and hour(value) <= 12; #6/27/2009# : hour(value) >= 6 and hour(value) <= 12; #6/28/2009# : hour(value) >= 6 and ho"
var_s = var_s + "ur(value) <= 12; #6/29/2009# : hour(value) >= 6 and hour(value) <= 12; #6/30/2009# : hour(value) >= 6 and hour(value) <= 12; #7/"
var_s = var_s + "1/2009# : hour(value) >= 6 and hour(value) <= 12; #7/2/2009# : hour(value) >= 6 and hour(value) <= 12; #7/3/2009# : hour(value) "
var_s = var_s + ">= 6 and hour(value) <= 12; #7/4/2009# : hour(value) >= 6 and hour(value) <= 12; #7/5/2009# : hour(value) >= 6 and hour(value) <"
var_s = var_s + "= 12; #7/6/2009# : hour(value) >= 6 and hour(value) <= 12; #7/7/2009# : hour(value) >= 6 and hour(value) <= 12; #7/8/2009# : hou"
var_s = var_s + "r(value) >= 6 and hour(value) <= 12; #7/9/2009# : hour(value) >= 6 and hour(value) <= 12; #7/10/2009# : hour(value) >= 6 and hou"
var_s = var_s + "r(value) <= 12; #7/11/2009# : hour(value) >= 6 and hour(value) <= 12; #7/12/2009# : hour(value) >= 6 and hour(value) <= 12; #7/1"
var_s = var_s + "3/2009# : hour(value) >= 6 and hour(value) <= 12; #7/14/2009# : hour(value) >= 6 and hour(value) <= 12)"
.ItemNonworkingUnits(0,.F.) = var_s
.DefaultItem = .AddItem("Test")
var_s1 = "date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/6/"
var_s1 = var_s1 + "2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/7/2009# : hour(value) >= 6 and hour(value) <="
var_s1 = var_s1 + " 10 or hour(value) in (16,17,20,21); #4/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/9/2"
var_s1 = var_s1 + "009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/10/2009# : hour(value) >= 6 and hour(value) <="
var_s1 = var_s1 + " 10 or hour(value) in (16,17,20,21); #4/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/12"
var_s1 = var_s1 + "/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/13/2009# : hour(value) >= 6 and hour(value) "
var_s1 = var_s1 + "<= 10 or hour(value) in (16,17,20,21); #4/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/"
var_s1 = var_s1 + "15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/16/2009# : hour(value) >= 6 and hour(value"
var_s1 = var_s1 + ") <= 10 or hour(value) in (16,17,20,21); #4/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #"
var_s1 = var_s1 + "4/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/19/2009# : hour(value) >= 6 and hour(val"
var_s1 = var_s1 + "ue) <= 10 or hour(value) in (16,17,20,21); #4/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21);"
var_s1 = var_s1 + " #4/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/22/2009# : hour(value) >= 6 and hour(v"
var_s1 = var_s1 + "alue) <= 10 or hour(value) in (16,17,20,21); #4/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21"
var_s1 = var_s1 + "); #4/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/25/2009# : hour(value) >= 6 and hour"
var_s1 = var_s1 + "(value) <= 10 or hour(value) in (16,17,20,21); #4/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,"
var_s1 = var_s1 + "21); #4/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/28/2009# : hour(value) >= 6 and ho"
var_s1 = var_s1 + "ur(value) <= 10 or hour(value) in (16,17,20,21); #4/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,2"
var_s1 = var_s1 + "0,21); #4/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/1/2009# : hour(value) >= 6 and h"
var_s1 = var_s1 + "our(value) <= 10 or hour(value) in (16,17,20,21); #5/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,2"
var_s1 = var_s1 + "0,21); #5/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/4/2009# : hour(value) >= 6 and ho"
var_s1 = var_s1 + "ur(value) <= 10 or hour(value) in (16,17,20,21); #5/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20"
var_s1 = var_s1 + ",21); #5/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/7/2009# : hour(value) >= 6 and hou"
var_s1 = var_s1 + "r(value) <= 10 or hour(value) in (16,17,20,21); #5/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,"
var_s1 = var_s1 + "21); #5/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/10/2009# : hour(value) >= 6 and hou"
var_s1 = var_s1 + "r(value) <= 10 or hour(value) in (16,17,20,21); #5/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20"
var_s1 = var_s1 + ",21); #5/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/14/2009# : hour(value) >= 6 and h"
var_s1 = var_s1 + "our(value) <= 10 or hour(value) in (16,17,20,21); #5/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,"
var_s1 = var_s1 + "20,21); #5/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/17/2009# : hour(value) >= 6 and"
var_s1 = var_s1 + " hour(value) <= 10 or hour(value) in (16,17,20,21); #5/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,1"
var_s1 = var_s1 + "7,20,21); #5/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/20/2009# : hour(value) >= 6 a"
var_s1 = var_s1 + "nd hour(value) <= 10 or hour(value) in (16,17,20,21); #5/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16"
var_s1 = var_s1 + ",17,20,21); #5/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/23/2009# : hour(value) >= 6"
var_s1 = var_s1 + " and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in ("
var_s1 = var_s1 + "16,17,20,21); #5/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/26/2009# : hour(value) >="
var_s1 = var_s1 + " 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in"
var_s1 = var_s1 + " (16,17,20,21); #5/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/29/2009# : hour(value) "
var_s1 = var_s1 + ">= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) "
var_s1 = var_s1 + "in (16,17,20,21); #5/31/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/1/2009# : hour(value)"
var_s1 = var_s1 + " >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) "
var_s1 = var_s1 + "in (16,17,20,21); #6/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/4/2009# : hour(value) "
var_s1 = var_s1 + ">= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) i"
var_s1 = var_s1 + "n (16,17,20,21); #6/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/7/2009# : hour(value) >"
var_s1 = var_s1 + "= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in"
var_s1 = var_s1 + " (16,17,20,21); #6/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/10/2009# : hour(value) >"
var_s1 = var_s1 + "= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) i"
var_s1 = var_s1 + "n (16,17,20,21); #6/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/13/2009# : hour(value)"
var_s1 = var_s1 + " >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value)"
var_s1 = var_s1 + " in (16,17,20,21); #6/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/16/2009# : hour(valu"
var_s1 = var_s1 + "e) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(valu"
var_s1 = var_s1 + "e) in (16,17,20,21); #6/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/19/2009# : hour(va"
var_s1 = var_s1 + "lue) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(va"
var_s1 = var_s1 + "lue) in (16,17,20,21); #6/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/23/2009# : hour("
var_s1 = var_s1 + "value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour("
var_s1 = var_s1 + "value) in (16,17,20,21); #6/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/26/2009# : hou"
var_s1 = var_s1 + "r(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hou"
var_s1 = var_s1 + "r(value) in (16,17,20,21); #6/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/29/2009# : h"
var_s1 = var_s1 + "our(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/30/2009# : hour(value) >= 6 and hour(value) <= 10 or h"
var_s1 = var_s1 + "our(value) in (16,17,20,21); #7/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/2/2009# : h"
var_s1 = var_s1 + "our(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/3/2009# : hour(value) >= 6 and hour(value) <= 10 or ho"
var_s1 = var_s1 + "ur(value) in (16,17,20,21); #7/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/5/2009# : ho"
var_s1 = var_s1 + "ur(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hou"
var_s1 = var_s1 + "r(value) in (16,17,20,21); #7/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/8/2009# : hou"
var_s1 = var_s1 + "r(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour"
var_s1 = var_s1 + "(value) in (16,17,20,21); #7/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/11/2009# : ho"
var_s1 = var_s1 + "ur(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/12/2009# : hour(value) >= 6 and hour(value) <= 10 or ho"
var_s1 = var_s1 + "ur(value) in (16,17,20,21); #7/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/14/2009# : "
var_s1 = var_s1 + "hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21))"
.ItemNonworkingUnits(0,.F.) = var_s1
.AddItem("Default")
endwith
.EndUpdate
endwith
|
|
972
|
How can I use the CASE statement (CASE usage)
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Value")
.Width = 24
.Editor.EditType = 4
endwith
with .Columns.Add("CASE - statment")
var_s = "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourth"
var_s = var_s + "een')"
.ComputedField = var_s
.ToolTip = .ComputedField
endwith
with .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
endwith
.EndUpdate
endwith
|
|
971
|
How can I use the CASE statement (CASE usage)
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Value")
.Width = 24
.Editor.EditType = 4
endwith
with .Columns.Add("CASE - statment")
var_s = "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen'"
var_s = var_s + ";14:'Fourtheen')"
.ComputedField = var_s
.ToolTip = .ComputedField
endwith
with .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
endwith
.EndUpdate
endwith
|
|
970
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Value")
.Width = 24
.Editor.EditType = 4
endwith
with .Columns.Add("SWITCH - statment")
.ComputedField = "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
.ToolTip = .ComputedField
endwith
with .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
endwith
.EndUpdate
endwith
|
|
969
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Value")
.Width = 24
.Editor.EditType = 4
endwith
with .Columns.Add("IN - statment")
.ComputedField = "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
.ToolTip = .ComputedField
endwith
with .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
endwith
.EndUpdate
endwith
|
|
968
|
How can I automatically update the exBarPercent value using a slider control
with thisform.G2antt1
.BeginUpdate
.Items.AllowCellValueToItemBar = .T.
with .Chart
.FirstVisibleDate = {^2002-1-1}
.PaneWidth(0) = 128
.Bars.Add("Task%Progress").Shortcut = "Percent"
endwith
with .Columns.Add("Percent")
.Def(18) = 12
.Def(19) = "P"
endwith
with .Items
i = .AddItem(0)
.DefaultItem = i
.CellBold(0,0) = .T.
with .CellEditor(i,0)
.EditType = 20
.Option(42) = 0.01
.Option(40) = 0.01
.Option(44) = 1
.Option(41) = -100
endwith
.DefaultItem = i
.CellValueFormat(0,0) = 1
.AddBar(i,"Percent",{^2002-1-2},{^2002-1-6},"P")
.DefaultItem = i
.ItemBar(0,"P",14) = .T.
.DefaultItem = i
.CellValue(0,0) = 0.5
endwith
.EndUpdate
endwith
|
|
967
|
How can I automatically update the exBarPercent value using a spin control
with thisform.G2antt1
.BeginUpdate
.Items.AllowCellValueToItemBar = .T.
with .Chart
.FirstVisibleDate = {^2002-1-1}
.PaneWidth(0) = 128
.Bars.Add("Task%Progress").Shortcut = "Percent"
endwith
with .Columns.Add("Percent")
.Def(18) = 12
.FormatColumn = "((0:=round(dbl(%0)*100)) >= 50 ? '<font 8>'+ =:0 + '%</font>' : '<fgcolor=808080><font 6>'+ =:0 + '%</font></fgcolor>')"
endwith
with .Items
i = .AddItem(0)
.DefaultItem = i
.CellBold(0,0) = .T.
with .CellEditor(i,0)
.EditType = 4
.Option(40) = 0.01
.Option(44) = 1
endwith
.DefaultItem = i
.CellValueFormat(0,0) = 1
.AddBar(i,"Percent",{^2002-1-2},{^2002-1-6})
.DefaultItem = i
.CellValue(0,0) = 0.5
endwith
.EndUpdate
endwith
|
|
966
|
How do I specify for an item all units as being non-working units
with thisform.G2antt1
.BeginUpdate
.AllowChartScrollPage = .T.
.Columns.Add("Non-Work")
with .Chart
.AllowCreateBar = 1
.FirstVisibleDate = {^2009-4-3 10:00:00}
.PaneWidth(0) = 64
.LevelCount = 2
.UnitWidth = 16
with .Level(0)
.Label = "<r><%d%>-<%mmm%>"
.Unit = 4096
endwith
with .Level(1)
.Label = "<%hh%>"
.Unit = 65536
.Count = 2
endwith
endwith
with .Items
.AddItem("Default")
.DefaultItem = .AddItem("All-Non-Working")
.ItemNonworkingUnits(0,.F.) = "1"
.AddItem("Default")
endwith
.EndUpdate
endwith
|
|
965
|
How do I specify for an item all units as being working units
with thisform.G2antt1
.BeginUpdate
.AllowChartScrollPage = .T.
.Columns.Add("Non-Work")
with .Chart
.AllowCreateBar = 1
.FirstVisibleDate = {^2009-4-3 10:00:00}
.PaneWidth(0) = 64
.LevelCount = 2
.UnitWidth = 16
with .Level(0)
.Label = "<r><%d%>-<%mmm%>"
.Unit = 4096
endwith
with .Level(1)
.Label = "<%hh%>"
.Unit = 65536
.Count = 2
endwith
endwith
with .Items
.AddItem("Default")
.DefaultItem = .AddItem("All-Working")
.ItemNonworkingUnits(0,.F.) = "0"
.AddItem("Default")
endwith
.EndUpdate
endwith
|
|
964
|
How can I programmatically specify different non-working units ( days, hours ) for different items
with thisform.G2antt1
.BeginUpdate
.AllowChartScrollPage = .T.
.Columns.Add("Non-Work")
with .Chart
.AllowCreateBar = 1
.Bars.Add("Task:Split").Shortcut = "Task"
.FirstVisibleDate = {^2009-7-13 12:00:00}
.PaneWidth(0) = 52
.LevelCount = 2
.UnitWidth = 16
with .Level(0)
.Label = "<r><b><%d%></b> <%mmm%> <%yyyy%>"
.Unit = 4096
endwith
with .Level(1)
.Label = "<%hh%>"
.Unit = 65536
.Count = 2
endwith
endwith
with .Items
h = .AddItem("Item 1")
.DefaultItem = h
.ItemNonworkingUnits(0,.F.) = "(shortdate(value) = #7/14/2009# and hour(value) >= 6 and hour(value) <= 12)"
.AddBar(h,"Task",{^2009-7-14 4:00:00},{^2009-7-14 14:00:00})
h = .AddItem("Item 2")
.DefaultItem = h
var_s = "(((hour(value) >= 4 and hour(value) <= 16) or hour(value) = 2) and month(value) = 7) or ((hour(value) >= 2 and hour(value) < 10)"
var_s = var_s + ") and month(value) = 6 or weekday(value) = 6"
.ItemNonworkingUnits(0,.F.) = var_s
.AddBar(h,"Task",{^2009-7-14 1:00:00},{^2009-7-14 6:00:00})
endwith
.EndUpdate
endwith
|
|
963
|
I am programmatically select a date using the Chart.SelectDate property, but can't see why the date is not highlighted. What am I doing wrong
with thisform.G2antt1
with .Chart
.LevelCount = 2
.FirstVisibleDate = {^2001-1-1}
.SelectLevel = 1
.SelectDate({^2001-1-4}) = .T.
endwith
endwith
|
|
962
|
How do I show a shorter line in the chart's level
with thisform.G2antt1
.BeginUpdate
.GridLineColor = RGB(128,128,128)
with .Chart
.DrawLevelSeparator = 0
.UnitWidth = 24
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 0
.LevelCount = 2
with .Level(0)
.Alignment = 1
.Label = "<%dddd%>"
.DrawTickLines = 18 && LevelLineEnum.exLevelLowerHalf Or LevelLineEnum.exLevelSolidLine
endwith
with .Level(1)
.Label = 65536
.Count = 6
.DrawTickLines = 578 && 0x200 Or LevelLineEnum.exLevelMiddleLine Or LevelLineEnum.exLevelSolidLine
.DrawTickLinesFrom(0,34) && LevelLineEnum.exLevelUpperHalf Or LevelLineEnum.exLevelSolidLine
endwith
endwith
.EndUpdate
endwith
|
|
961
|
How do I replicate the screen shot http://www.exontrol.com/images/exg2antt9.jpg
with thisform.G2antt1
.BeginUpdate
with .VisualAppearance
.Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headdark.ebn")
.Add(2,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\xpbsel.ebn")
.Add(3,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headligh.ebn")
.Add(4,"CP:1 0 0 1 1")
endwith
.BackColorHeader = 0x4000000
.Chart.BackColorLevelHeader = 0x4000000
.SelBackColor = 0x20000ff
.GridLineColor = RGB(128,128,128)
.HeaderHeight = 22
.SelForeColor = RGB(0,0,0)
.MarkSearchColumn = .F.
.ScrollBySingleLine = .F.
.ShowFocusRect = .F.
.DefaultItemHeight = 48
with .Columns
with .Add("Group")
.Def(0) = .T.
.Def(4) = 50331648
.LevelKey = 1
endwith
with .Add("Histogram")
.Width = 18
.AllowSizing = .F.
.LevelKey = 1
.Position = 0
endwith
endwith
with .Chart
.FirstVisibleDate = {^2009-6-11}
.DrawGridLines = -1
.PaneWidth(0) = 96
.LevelCount = 2
.DrawLevelSeparator = .F.
with .Level(0)
.Label = "<%mmmm%> <%yyyy%>"
.Unit = 16
.Alignment = 1
endwith
with .Level(1)
.FormatLabel = "weekday(dvalue)=1?value:''"
.DrawTickLines = 18 && LevelLineEnum.exLevelLowerHalf Or LevelLineEnum.exLevelSolidLine
.DrawTickLinesFrom(0,2)
.Alignment = 1
endwith
with .Bars.Item("Task")
.Color = 0x2000000
.Height = 18
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.HistogramColor = 0x1000000
.HistogramType = 1
endwith
.HistogramVisible = .T.
.HistogramHeight = 48
.HistogramView = 4
endwith
with .Items
h = .AddItem("Group <b>A</b>")
.DefaultItem = h
.CellValueFormat(0,0) = 1
.DefaultItem = h
.CellMerge(0,0) = 1
.AddBar(h,"Task",{^2009-6-12},{^2009-6-19},"K1","Requirements")
.AddBar(h,"Task",{^2009-6-13},{^2009-6-21},"K2","Sales & Marketing")
.DefaultItem = h
.ItemBar(0,"K1",33) = 255
.DefaultItem = h
.ItemBar(0,"K2",33) = 255
.DefaultItem = h
.CellState(0,0) = 1
h = .AddItem("Group <b>B</b>")
.DefaultItem = h
.CellValueFormat(0,0) = 1
.DefaultItem = h
.CellMerge(0,0) = 1
.AddBar(h,"Task",{^2009-6-14},{^2009-6-23},"K1","<b>GUI</b> Design")
.AddBar(h,"Task",{^2009-6-18},{^2009-6-25},"K2","Class Design")
h = .AddItem("Group <b>C</b>")
.DefaultItem = h
.CellValueFormat(0,0) = 1
.DefaultItem = h
.CellMerge(0,0) = 1
.AddBar(h,"Task",{^2009-6-12},{^2009-6-19},"K1","<b>GUI</b> Coding")
.AddBar(h,"Task",{^2009-6-13},{^2009-6-25},"K2","Design & Concept")
.DefaultItem = h
.ItemBar(0,"K1",33) = 65280
.DefaultItem = h
.ItemBar(0,"K2",33) = 65280
endwith
.EndUpdate
endwith
|
|
960
|
How can I remove all bars from the chart
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K2")
.ClearBars(0)
endwith
endwith
|
|
959
|
How can I change the color for all bars with a specified key
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K2")
.ItemBar(0,"K1",33) = 255
endwith
endwith
|
|
958
|
Is there any automatic way to change a property for all bars with a specified key
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K2")
.ItemBar(0,"K1",33) = 255
endwith
endwith
|
|
957
|
How can I remove all bars with specified key
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K1")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K2")
.RemoveBar(0,"K1")
endwith
endwith
|
|
956
|
How do I several bars with different vertical offsets
with thisform.G2antt1
.Chart.FirstVisibleDate = {^2001-1-1}
.Columns.Add("Column")
with .Items
h = .AddItem("Item")
.DefaultItem = h
.ItemHeight(0) = 62
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"T1")
.DefaultItem = h
.ItemBar(0,"T1",18) = -23
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"T2")
.DefaultItem = h
.ItemBar(0,"T2",18) = -11
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"T3")
.DefaultItem = h
.ItemBar(0,"T3",18) = 1
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"T4")
.DefaultItem = h
.ItemBar(0,"T4",18) = 13
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"T5")
.DefaultItem = h
.ItemBar(0,"T5",18) = 25
endwith
endwith
|
|
955
|
Is there any option to show gradient bars without using EBN technology
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Chart.Bars.Item("Task")
.Color = RGB(255,0,0)
.StartColor = RGB(0,255,0)
.EndColor = RGB(255,255,0)
.Pattern = 32
endwith
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
endwith
endwith
|
|
954
|
How can I define a bar with border and solid filling
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Chart.Bars.Item("Task")
.Color = RGB(255,0,0)
.StartColor = RGB(255,255,0)
.EndColor = RGB(255,255,0)
.Pattern = 32
endwith
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
endwith
endwith
|
|
953
|
How can I define a bar with border and solid filling
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Chart.Bars.Item("Task")
.Color = RGB(255,0,0)
.Pattern = 32
.Height = 18
endwith
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
.DefaultItem = h
.ItemBar(0,"",7) = 65535
endwith
endwith
|
|
952
|
How do I define a bar with solid border and filling
with thisform.G2antt1
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackboxt.ebn")
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Chart.Bars.Item("Task")
.Color = 0x1000000
.Height = 18
endwith
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
.DefaultItem = h
.ItemBar(0,"",33) = 255
.DefaultItem = h
.ItemBar(0,"",7) = 65535
endwith
endwith
|
|
951
|
Can I control the units/resource/effort being allocated to a bar when displaying OverAllocation histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Columns.Add("Effort")
.Def(18) = 21
.Editor.EditType = 4
endwith
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 96
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 202
.HistogramView = 112
with .Bars.Item("Task")
.HistogramPattern = 2050 && PatternEnum.exRectangularCurve Or PatternEnum.exPatternDot
.HistogramType = 1
.HistogramCriticalValue = 50
.HistogramGridLinesColor = RGB(192,192,192)
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
endwith
with .Items
.AllowCellValueToItemBar = .T.
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-25})
.DefaultItem = h1
.CellValue(0,1) = 2
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",{^2005-6-24},{^2005-6-28})
.DefaultItem = h1
.CellValue(0,1) = 1
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",{^2005-6-27},{^2005-7-1})
.DefaultItem = h1
.CellValue(0,1) = 2
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",{^2005-6-30},{^2005-7-2})
.DefaultItem = h1
.CellValue(0,1) = 1
endwith
.EndUpdate
endwith
|
|
950
|
Can I control the units/resource/effort being allocated to a bar when displaying Overload histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Columns.Add("Effort")
.Def(18) = 21
.Editor.EditType = 4
endwith
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 96
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 128
.HistogramView = 112
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 0
.HistogramCriticalValue = 3
.ShowHistogramValues = "value>3?255:1"
.HistogramItems = -11
.HistogramGridLinesColor = RGB(192,192,192)
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
endwith
with .Items
.AllowCellValueToItemBar = .T.
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-23})
.DefaultItem = h1
.CellValue(0,1) = 4
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",{^2005-6-24},{^2005-6-26})
.DefaultItem = h1
.CellValue(0,1) = 3
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",{^2005-6-27},{^2005-6-29})
.DefaultItem = h1
.CellValue(0,1) = 2
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",{^2005-6-30},{^2005-7-2})
.DefaultItem = h1
.CellValue(0,1) = 1
endwith
.EndUpdate
endwith
|
|
949
|
How can I display double-lines curves in the histogram
with thisform.G2antt1
.AntiAliasing = .T.
with .Chart
.PaneWidth(0) = 48
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 64
with .Bars.Item("Task")
.HistogramPattern = 512
.HistogramItems = 3
.HistogramBorderColor = RGB(128,0,0)
.HistogramColor = RGB(255,0,0)
endwith
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-7})
endwith
endwith
|
|
948
|
Is there any option to display values in the histogram using different colors
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
with .Bars.Item("Task")
.HistogramPattern = 6
.HistogramItems = 6
.ShowHistogramValues = "value>1?255:65280"
endwith
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-7})
endwith
endwith
|
|
947
|
Is there any option to display values in the histogram using different colors
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
with .Bars.Item("Task")
.HistogramPattern = 6
.HistogramItems = 6
.ShowHistogramValues = "value>1?255:1"
endwith
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-7})
endwith
endwith
|
|
946
|
How can I display only few values in the histogram, such as the values greater than a value
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
with .Bars.Item("Task")
.HistogramPattern = 6
.ShowHistogramValues = "value>1"
endwith
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-7})
endwith
endwith
|
|
945
|
How can I display values in the histogram
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
with .Bars.Item("Task")
.HistogramPattern = 6
.ShowHistogramValues = "1"
endwith
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-7})
endwith
endwith
|
|
944
|
How can I scroll the chart to find a bar
with thisform.G2antt1
.Columns.Add("Column")
.Chart.LevelCount = 2
.Chart.PaneWidth(0) = 64
.DefaultItemHeight = 32
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4},1)
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4},2)
.AddBar(.AddItem("Item 3"),"Task",{^2001-1-2},{^2001-1-4},3)
.AddBar(.AddItem("Item 4"),"Task",{^2001-1-2},{^2001-1-4},4)
.AddBar(.AddItem("Item 5"),"Task",{^2001-1-2},{^2001-1-4},5)
.AddBar(.AddItem("Item 6"),"Task",{^2001-1-2},{^2001-1-4},6)
.AddBar(.AddItem("Item 7"),"Task",{^2001-1-2},{^2001-1-4},7)
.AddBar(.AddItem("Item 8"),"Task",{^2001-1-2},{^2001-1-4},8)
.AddBar(.AddItem("Item 9"),"Task",{^2001-1-2},{^2001-1-4},8)
.AddBar(.AddItem("Item 10"),"Task",{^2001-1-2},{^2001-1-4},10)
.AddBar(.AddItem("Item 11"),"Task",{^2001-1-2},{^2001-1-4},11)
.AddBar(.AddItem("Item 12"),"Task",{^2001-1-2},{^2001-1-4},12)
.AddBar(.AddItem("Item 13"),"Task",{^2001-1-2},{^2001-1-4},13)
.AddBar(.AddItem("Item 14"),"Task",{^2001-1-2},{^2001-1-4},14)
endwith
h = .Items.FindBar(14)
.Items.EnsureVisibleItem(h)
.Chart.ScrollTo(thisform.G2antt1.Items.ItemBar(h,14,1),1)
endwith
|
|
943
|
Can I change the color/marker/frame for selected bars
with thisform.G2antt1
.BeginUpdate
with .VisualAppearance
.Add(2,"c:\exontrol\images\normal.ebn")
.Add(1,"CP:2 3 2 -3 -2")
endwith
with .Chart
.FirstVisibleDate = {^2002-1-1}
.SelBarColor = 0x1000000
.PaneWidth(0) = 48
endwith
.Columns.Add("Task")
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2002-1-2},{^2002-1-4},"A")
.AddBar(h,"Task",{^2002-1-6},{^2002-1-10},"B")
.AddBar(h,"Task",{^2002-1-11},{^2002-1-14},"C")
.DefaultItem = h
.ItemBar(0,"A",257) = .T.
.DefaultItem = h
.ItemBar(0,"B",257) = .T.
endwith
.EndUpdate
endwith
|
|
942
|
Can I display a larger marker for selected bars, eventually using the EBN technology
with thisform.G2antt1
.BeginUpdate
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
with .Chart
.FirstVisibleDate = {^2002-1-1}
.SelBarColor = 0x1000000
.PaneWidth(0) = 48
endwith
.Columns.Add("Task")
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2002-1-2},{^2002-1-4},"A")
.AddBar(h,"Task",{^2002-1-6},{^2002-1-10},"B")
.AddBar(h,"Task",{^2002-1-11},{^2002-1-14},"C")
.DefaultItem = h
.ItemBar(0,"A",257) = .T.
.DefaultItem = h
.ItemBar(0,"B",257) = .T.
endwith
.EndUpdate
endwith
|
|
941
|
How do I change the color for the selected bars
with thisform.G2antt1
.BeginUpdate
.Debug = .T.
with .Chart
.FirstVisibleDate = {^2002-1-1}
.SelBarColor = RGB(255,0,0)
.PaneWidth(0) = 48
endwith
.Columns.Add("Task")
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2002-1-2},{^2002-1-4},"A")
.AddBar(h,"Task",{^2002-1-6},{^2002-1-10},"B")
.AddBar(h,"Task",{^2002-1-11},{^2002-1-14},"C")
.DefaultItem = h
.ItemBar(0,"A",257) = .T.
.DefaultItem = h
.ItemBar(0,"B",257) = .T.
endwith
.EndUpdate
endwith
|
|
940
|
How can I change the background color for child bars of a summary bar
with thisform.G2antt1
.BeginUpdate
.LinesAtRoot = -1
.HasLines = .F.
with .Chart
.AllowCreateBar = .F.
.AllowLinkBars = .F.
.FirstVisibleDate = {^2008-1-1}
.LevelCount = 2
.PaneWidth(0) = 112
endwith
.Columns.Add("")
with .Items
hR1 = .AddItem("Team 1")
.AddBar(hR1,"Summary",{^2008-1-2},{^2008-1-8},"")
.DefaultItem = hR1
.ItemBar(0,"",34) = 12895428
h1 = .InsertItem(hR1,Null,"Member 1")
.AddBar(h1,"Task",{^2008-1-2},{^2008-1-7})
.DefineSummaryBars(hR1,"",h1,"")
h1 = .InsertItem(hR1,Null,"Member 2")
.AddBar(h1,"Task",{^2008-1-4},{^2008-1-9})
.DefineSummaryBars(hR1,"",h1,"")
h1 = .InsertItem(hR1,Null,"Member 3")
.AddBar(h1,"Task",{^2008-1-5},{^2008-1-10})
.DefineSummaryBars(hR1,"",h1,"")
.DefaultItem = hR1
.ExpandItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
939
|
How can I allow resizing the bar only in the right part of the bar
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",10) = 2
endwith
endwith
|
|
938
|
How can I allow resizing the bar only in the left part of the bar
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",10) = 1
endwith
endwith
|
|
937
|
How can I show the links that starts from selected bar being more visible, while the rest being transparent
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.FirstVisibleDate = {^2006-9-20}
.PaneWidth(0) = 64
.ShowLinksWidth(1) = 2
.ShowLinksStyle(1) = 2
.ShowLinksColor(2) = RGB(200,200,200)
.ShowLinksColor(4) = RGB(200,200,200)
endwith
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2006-9-21},{^2006-9-23})
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",{^2006-9-25},{^2006-9-27})
.DefaultItem = h2
.ItemBar(0,"",257) = .T.
.AddLink("L1",h1,"",h2,"")
.Link("L1",12) = "L1"
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",{^2006-9-29},{^2006-10-2})
.AddLink("L2",h2,"",h3,"")
.Link("L2",12) = "L2"
endwith
.EndUpdate
endwith
|
|
936
|
How can I show only the links that starts from selected bar
with thisform.G2antt1
.BeginUpdate
.MarkSearchColumn = .F.
.OnResizeControl = 1
.Columns.Add("Tasks")
.Columns.Add("Start").Visible = .F.
.Columns.Add("End").Visible = .F.
with .Chart
.FirstVisibleDate = {^2006-9-20}
.PaneWidth(0) = 64
.ShowLinksColor(2) = .BackColor
.ShowLinksColor(4) = .BackColor
endwith
with .Items
h1 = .AddItem("Task 1")
.DefaultItem = h1
.CellValue(0,1) = {^2006-9-21}
.DefaultItem = h1
.CellValue(0,2) = {^2006-9-24}
.AddBar(h1,"Task",.CellValue(h1,1),.CellValue(h1,2))
h2 = .InsertItem(h,Null,"Task 2")
.DefaultItem = h2
.CellValue(0,1) = {^2006-9-25}
.DefaultItem = h2
.CellValue(0,2) = {^2006-9-28}
.AddBar(h2,"Task",.CellValue(h2,1),.CellValue(h2,2))
.DefaultItem = h2
.ItemBar(0,"",257) = .T.
.AddLink("L1",h1,"",h2,"")
h3 = .InsertItem(h,Null,"Task 3")
.DefaultItem = h3
.CellValue(0,1) = {^2006-9-29}
.DefaultItem = h3
.CellValue(0,2) = {^2006-10-2}
.AddBar(h3,"Task",.CellValue(h3,1),.CellValue(h3,2))
.AddLink("L2",h2,"",h3,"")
endwith
.EndUpdate
endwith
|
|
935
|
How can I hide links that are not related to selected bar
with thisform.G2antt1
.BeginUpdate
.MarkSearchColumn = .F.
.OnResizeControl = 1
.Columns.Add("Tasks")
.Columns.Add("Start").Visible = .F.
.Columns.Add("End").Visible = .F.
with .Chart
.FirstVisibleDate = {^2006-9-20}
.PaneWidth(0) = 64
.ShowLinksColor(4) = .BackColor
endwith
with .Items
h1 = .AddItem("Task 1")
.DefaultItem = h1
.CellValue(0,1) = {^2006-9-21}
.DefaultItem = h1
.CellValue(0,2) = {^2006-9-24}
.AddBar(h1,"Task",.CellValue(h1,1),.CellValue(h1,2))
.DefaultItem = h1
.ItemBar(0,"",257) = .T.
h2 = .InsertItem(h,Null,"Task 2")
.DefaultItem = h2
.CellValue(0,1) = {^2006-9-25}
.DefaultItem = h2
.CellValue(0,2) = {^2006-9-28}
.AddBar(h2,"Task",.CellValue(h2,1),.CellValue(h2,2))
.AddLink("L1",h1,"",h2,"")
h3 = .InsertItem(h,Null,"Task 3")
.DefaultItem = h3
.CellValue(0,1) = {^2006-9-29}
.DefaultItem = h3
.CellValue(0,2) = {^2006-10-2}
.AddBar(h3,"Task",.CellValue(h3,1),.CellValue(h3,2))
.AddLink("L2",h2,"",h3,"")
endwith
.EndUpdate
endwith
|
|
934
|
How can I show the direction of the link using EBN files
with thisform.G2antt1
.BeginUpdate
with .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"CP:1 -1 -1 1 1")
.Add(3,"CP:1 -2 -2 2 2")
endwith
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
endwith
.Columns.Add("Column")
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"B1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",{^2001-1-5},{^2001-1-13},"B2")
.AddLink("L1",h1,"B1",h2,"B2")
.Link("L1",14) = 16777216
h2 = .AddItem("Task 3")
.AddBar(h2,"Task",{^2001-1-5},{^2001-1-13},"B3")
.AddLink("L2",h1,"B1",h2,"B3")
.Link("L2",14) = 33554432
h2 = .AddItem("Task 4")
.AddBar(h2,"Task",{^2001-1-5},{^2001-1-13},"B5")
.AddLink("L3",h1,"B1",h2,"B5")
.Link("L3",14) = 50331648
endwith
.EndUpdate
endwith
|
|
933
|
How can I show round links
with thisform.G2antt1
.Chart.FirstVisibleDate = {^2001-1-1}
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4},"B1")
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-5},{^2001-1-13},"B2")
.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
.Link("L1",15) = .T.
endwith
endwith
|
|
932
|
How can I change the color to display the arrow of the link
with thisform.G2antt1
.Chart.FirstVisibleDate = {^2001-1-1}
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4},"B1")
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-6},{^2001-1-14},"B2")
.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
.Link("L1",14) = 255
endwith
endwith
|
|
931
|
I use UnitScale: exHour and I want to show only from 9 to 18 hour. The idea is to show only the working part of a day. Is this possible
with thisform.G2antt1
.BeginUpdate
with .Chart
.MarkTodayColor = .BackColor
.BackColorLevelHeader = RGB(255,255,255)
.PaneWidth(0) = 0
.LevelCount = 2
with .Level(0)
.Label = "<b><%dddd%></b> <%d%>"
.Alignment = 1
.DrawTickLines = 0
endwith
with .Level(1)
.Label = 65536
.DrawTickLines = 65 && LevelLineEnum.exLevelMiddleLine Or LevelLineEnum.exLevelDotLine
.DrawTickLinesFrom(0,1)
endwith
.NonworkingHours = 16253439
.ShowNonworkingUnits = .F.
.ShowNonworkingDates = .F.
.ShowNonworkingHours = .F.
endwith
.EndUpdate
endwith
|
|
930
|
Can I display tick lines from other level to my base level so time units gets separated more clearly
with thisform.G2antt1
.BeginUpdate
with .Chart
.DrawLevelSeparator = 0
.UnitWidth = 24
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 0
.LevelCount = 2
with .Level(0)
.Alignment = 1
.Label = "<%dddd%>"
.DrawTickLines = 18 && LevelLineEnum.exLevelLowerHalf Or LevelLineEnum.exLevelSolidLine
endwith
with .Level(1)
.Label = 65536
.Count = 6
.DrawTickLines = 66 && LevelLineEnum.exLevelMiddleLine Or LevelLineEnum.exLevelSolidLine
.DrawTickLinesFrom(0,2)
endwith
endwith
.EndUpdate
endwith
|
|
929
|
Is there any property to change the style of the tick lines being shown in the chart
with thisform.G2antt1
.BeginUpdate
with .Chart
.UnitWidth = 24
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 0
.LevelCount = 2
with .Level(0)
.Alignment = 1
.Label = "<%dddd%>"
.DrawTickLines = 2
endwith
with .Level(1)
.Label = 65536
.Count = 6
.DrawTickLines = 34 && LevelLineEnum.exLevelUpperHalf Or LevelLineEnum.exLevelSolidLine
endwith
.DrawLevelSeparator = 2
endwith
.EndUpdate
endwith
|
|
928
|
Is there any property to change the style of the tick lines being shown in the chart
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 0
.LevelCount = 2
.DrawLevelSeparator = 2
with .Level(0)
.Label = "<%dddd%>"
.DrawTickLines = 2
endwith
with .Level(1)
.Label = 65536
.Count = 6
.DrawTickLines = 2
endwith
endwith
.EndUpdate
endwith
|
|
927
|
How can I show the levels based on the base level so tick lines aligns better
with thisform.G2antt1
.BeginUpdate
with .Chart
.AdjustLevelsToBase = .T.
.UnitWidth = 24
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 0
.LevelCount = 2
.Level(0).Label = "<%dddd%>"
with .Level(1)
.Label = 65536
.Count = 5
endwith
endwith
.EndUpdate
endwith
|
|
926
|
How can I show only working hours in other words only the working part of the day
with thisform.G2antt1
.BeginUpdate
with .Chart
.AllowSelectDate = .F.
.MarkTodayColor = .BackColor
.PaneWidth(0) = 0
.LevelCount = 2
with .Level(0)
.Label = "<b><%dddd%></b> <%d%>"
.Alignment = 1
.DrawTickLines = .F.
endwith
with .Level(1)
.Label = 65536
.ReplaceLabel("09") = "<fgcolor=FF0000><b><font ;10>9</font></b></fgcolor>"
endwith
.NonworkingHours = 16253439
.ShowNonworkingUnits = .F.
.ShowNonworkingDates = .F.
.ShowNonworkingHours = .F.
endwith
.EndUpdate
endwith
|
|
925
|
How can I specify the effort for bars when displaying the overload histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 52
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 64
.HistogramView = 112
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 0
.HistogramItems = -6
.HistogramGridLinesColor = RGB(192,192,192)
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
endwith
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-23},"","4")
.DefaultItem = h1
.ItemBar(0,"",21) = 4
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",{^2005-6-24},{^2005-6-26},"",3)
.DefaultItem = h1
.ItemBar(0,"",21) = 3
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",{^2005-6-27},{^2005-6-29},"",2)
.DefaultItem = h1
.ItemBar(0,"",21) = 2
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",{^2005-6-30},{^2005-7-2},"",1)
endwith
.EndUpdate
endwith
|
|
924
|
How can I display the cumulative histogram and showing the bars that generated it using different colors
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 64
.PaneWidth(0) = 128
.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
with .Bars.Item("Task")
.HistogramPattern = 1
.HistogramType = 256
.HistogramCumulativeOriginalColorBars = .F.
.HistogramItems = 6
.HistogramRulerLinesColor = RGB(128,0,0)
.HistogramBorderColor = RGB(1,0,0)
endwith
endwith
with .Columns.Add("Column")
.Def(0) = .T.
.PartialCheck = .T.
endwith
with .Items
h = .AddItem("Project 1")
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.AddBar(.InsertItem(h,Null,"Item 3"),"Task",{^2001-1-4},{^2001-1-6})
.AddBar(.InsertItem(h,Null,"Item 4"),"Task",{^2001-1-2},{^2001-1-8})
.DefaultItem = .ItemByIndex(1)
.CellState(0,0) = 1
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
923
|
How can I show the cumulative histogram for my bar
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 64
.PaneWidth(0) = 128
.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
with .Bars.Item("Task")
.HistogramPattern = 1
.HistogramType = 256
.HistogramItems = 6
.HistogramRulerLinesColor = RGB(128,0,0)
.HistogramBorderColor = RGB(1,0,0)
endwith
endwith
with .Columns.Add("Column")
.Def(0) = .T.
.PartialCheck = .T.
endwith
with .Items
h = .AddItem("Project 1")
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.AddBar(.InsertItem(h,Null,"Item 3"),"Task",{^2001-1-4},{^2001-1-6})
.AddBar(.InsertItem(h,Null,"Item 4"),"Task",{^2001-1-2},{^2001-1-8})
.DefaultItem = .ItemByIndex(1)
.CellState(0,0) = 1
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
922
|
How can I show some grid lines or ruler in the histogram
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 64
.PaneWidth(0) = 78
.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
with .Bars.Item("Task")
.HistogramPattern = 6
.HistogramItems = 6
.HistogramRulerLinesColor = RGB(128,0,0)
.HistogramGridLinesColor = RGB(255,0,0)
endwith
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Project 1")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
921
|
Is there any property to show some grid lines in the histogram
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 64
.PaneWidth(0) = 78
.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
with .Bars.Item("Task")
.HistogramPattern = 6
.HistogramItems = 6
.HistogramGridLinesColor = RGB(255,0,0)
endwith
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Project 1")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
920
|
How can I specify a fixed number of bars/items being shown in the histogram
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 64
.PaneWidth(0) = 78
.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
with .Bars.Item("Task")
.HistogramPattern = 6
.HistogramCriticalValue = 3
.HistogramItems = -6
.HistogramRulerLinesColor = RGB(1,0,0)
endwith
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Project 1")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Project 2")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-4},{^2001-1-7})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-6},{^2001-1-8})
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Project 3")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Project 4")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-4},{^2001-1-7})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-6},{^2001-1-8})
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
919
|
Is there any option to specify a minimum number of bars/items displayed in the histogram
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 64
.PaneWidth(0) = 78
.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
with .Bars.Item("Task")
.HistogramPattern = 6
.HistogramItems = 6
.HistogramGridLinesColor = RGB(1,0,0)
.HistogramRulerLinesColor = RGB(1,0,0)
endwith
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Project 1")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Project 2")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-4},{^2001-1-7})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-6},{^2001-1-8})
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
918
|
How can I show the histogram without grouping the bars based on their parents
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
.Bars.Item("Task").HistogramPattern = 6
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Project 1")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Project 2")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-4},{^2001-1-7})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-6},{^2001-1-8})
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
917
|
How can I show the histogram for checked item and all recursively child items
with thisform.G2antt1
.BeginUpdate
with .Chart
.PaneWidth(0) = 128
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 128
.HistogramView = 788 && HistogramViewEnum.exHistogramRecLeafItems Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
.Bars.Item("Task").HistogramPattern = 6
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Project")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.DefaultItem = h
.CellState(0,0) = 1
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
.DefaultItem = h
.ExpandItem(0) = .T.
h = .InsertItem(h,Null,"SubProject")
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-3},{^2001-1-7})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-5},{^2001-1-8})
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
916
|
How can I show the histogram for checked item and its child items
with thisform.G2antt1
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
.HistogramView = 276 && HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
.Bars.Item("Task").HistogramPattern = 6
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Project")
.DefaultItem = h
.CellHasCheckBox(0,0) = .T.
.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
915
|
How can I show the histogram for all items
with thisform.G2antt1
.BeginUpdate
.SingleSel = .F.
with .Chart
.FirstVisibleDate = {^2001-1-1}
.LevelCount = 2
.HistogramVisible = .T.
.HistogramHeight = 32
.HistogramView = 112
.Bars.Item("Task").HistogramPattern = 6
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-7})
endwith
.EndUpdate
endwith
|
|
914
|
How can I prevent selecting a new item when clicking the chart area so my selection is shown in the histogram
with thisform.G2antt1
.SingleSel = .F.
with .Chart
.SelectOnClick = .F.
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
.HistogramView = 2
.Bars.Item("Task").HistogramPattern = 6
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = .ItemByIndex(0)
.SelectItem(0) = .T.
endwith
endwith
|
|
913
|
How can I show bars in the histogram for selected items only
with thisform.G2antt1
.SingleSel = .F.
with .Chart
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
.HistogramView = 2
.Bars.Item("Task").HistogramPattern = 6
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = .ItemByIndex(0)
.SelectItem(0) = .T.
endwith
endwith
|
|
912
|
How can I change the color and size for the curve in the histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 64
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 68
with .Bars.Item("Task")
.HistogramPattern = 258 && 0x100 Or PatternEnum.exPatternDot
.HistogramBorderColor = RGB(0,255,0)
.HistogramBorderSize = 5
endwith
endwith
with .Items
h1 = .AddItem("Task")
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-25},1,1)
.AddBar(h1,"Task",{^2005-6-23},{^2005-6-28},2,2)
endwith
.EndUpdate
endwith
|
|
911
|
How can I change the color for the frame in the histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 64
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 68
with .Bars.Item("Task")
.HistogramPattern = 259 && 0x100 Or PatternEnum.exPatternShadow
.HistogramItems = 5
.HistogramBorderColor = RGB(255,0,0)
endwith
endwith
with .Items
h1 = .AddItem("Task")
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-25},1,1)
.AddBar(h1,"Task",{^2005-6-23},{^2005-6-28},2,2)
endwith
.EndUpdate
endwith
|
|
910
|
How can I force the histogram for a bar being shown all the time
with thisform.G2antt1
.BeginUpdate
.ScrollBySingleLine = .T.
.Columns.Add("Tasks").Def(0) = .T.
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 64
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 68
.HistogramView = 20 && HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
with .Bars.Copy("Task","H")
.Color = RGB(0,255,0)
.HistogramPattern = 256 && 0x100
.HistogramItems = 5
.HistogramColor = .Color
.HistogramGridLinesColor = RGB(128,128,128)
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
with .Bars.Item("Task")
.HistogramCriticalColor = RGB(0,0,128)
.HistogramPattern = .Pattern && .Pattern
.HistogramItems = 5
.HistogramGridLinesColor = RGB(128,128,128)
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
endwith
with .Items
h1 = .AddItem("Hidden")
.AddBar(h1,"H",{^2005-6-23},{^2005-6-28},1)
.AddBar(h1,"H",{^2005-6-24},{^2005-6-26},2)
.DefaultItem = h1
.CellState(0,0) = 1
.DefaultItem = h1
.ItemHeight(0) = 0
.DefaultItem = h1
.SelectableItem(0) = .F.
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-25},1)
.DefaultItem = h1
.CellState(0,0) = 1
h1 = .AddItem("Task 2")
.DefaultItem = h1
.CellState(0,0) = 1
.AddBar(h1,"Task",{^2005-6-24},{^2005-7-1},1)
endwith
.EndUpdate
endwith
|
|
909
|
How can I remove a bar type from the histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 32
with .Bars.Item("Task")
.HistogramCriticalColor = RGB(0,0,128)
.HistogramPattern = .Pattern && .Pattern
endwith
with .Bars.Copy("Task","Green")
.Color = RGB(0,255,0)
.HistogramPattern = .Pattern && .Pattern
endwith
endwith
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Green",{^2005-6-22},{^2005-6-26},0)
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-25},1)
.DefaultItem = h1
.ItemBar(0,1,18) = 3
h1 = .AddItem("Task 2")
.AddBar(h1,"Green",{^2005-6-28},{^2005-6-30},0)
.AddBar(h1,"Task",{^2005-6-27},{^2005-7-1},1)
.DefaultItem = h1
.ItemBar(0,1,18) = 3
endwith
with .Chart.Bars.Item("Green")
.HistogramColor = .Color
.HistogramPattern = 0
endwith
.EndUpdate
endwith
|
|
908
|
How can I show the two buttons in the vertical splitter but still resizes the chart when the control gets resized
with thisform.G2antt1
.OnResizeControl = 513 && OnResizeControlEnum.exSplitterShowButtons Or OnResizeControlEnum.exResizeChart
.Chart.PaneWidth(0) = 96
.Chart.LevelCount = 2
endwith
|
|
907
|
I have seen a screen shot on your web page that shows two buttons on the vertical scroll bar. How can I show them
with thisform.G2antt1
.OnResizeControl = 512
.Chart.PaneWidth(0) = 96
endwith
|
|
906
|
How can I disable selecting a new item once the user clicks the chart area
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
.SingleSel = .F.
with .Chart
.SelectOnClick = .F.
.AllowCreateBar = 1
.LevelCount = 2
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 32
.HistogramView = 2
.Bars.Item("Task").HistogramPattern = 1
endwith
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-22},{^2005-6-26},0)
.DefaultItem = h1
.SelectItem(0) = .T.
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",{^2005-6-24},{^2005-6-30},0)
.DefaultItem = h1
.SelectItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
905
|
Is there any option to display the chart's header in the bottom side of the histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 96
.HistogramHeaderVisible = .T.
with .Bars.Item("Task")
.Color = RGB(0,0,255)
.OverlaidType = 1
.OverlaidGroup = "Task2"
.HistogramCriticalColor = RGB(0,0,128)
.HistogramPattern = 512
.HistogramType = 1
endwith
with .Bars.Copy("Task","Task2")
.Color = RGB(0,255,0)
.OverlaidType = 1
.OverlaidGroup = "Task"
.HistogramCriticalColor = RGB(0,128,0)
.HistogramPattern = 512
.HistogramType = 1
endwith
endwith
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task2",{^2005-6-22},{^2005-6-26},0)
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-25},1)
.DefaultItem = h1
.ItemBar(0,0,21) = 3
.DefaultItem = h1
.ItemBar(0,1,21) = 4
h1 = .AddItem("Task 2")
.AddBar(h1,"Task2",{^2005-6-28},{^2005-6-30},0)
.AddBar(h1,"Task",{^2005-6-27},{^2005-7-1},1)
.DefaultItem = h1
.ItemBar(0,0,21) = 4
.DefaultItem = h1
.ItemBar(0,1,21) = 1
endwith
.EndUpdate
endwith
|
|
904
|
How can I display the child bars as soon as an item gets collapsed
with thisform.G2antt1
.BeginUpdate
.LinesAtRoot = -1
.Columns.Add("Tasks")
with .Chart
.FirstVisibleDate = {^2006-9-20}
.ShowCollapsedBars = .T.
.LevelCount = 2
.PaneWidth(0) = 96
endwith
with .Items
h = .AddItem("Project 1")
h1 = .InsertItem(h,Null,"Task 1")
.AddBar(h1,"Task",{^2006-9-21},{^2006-9-23},"A")
h2 = .InsertItem(h,Null,"Task 2")
.AddBar(h2,"Task",{^2006-9-24},{^2006-9-26},"B")
h3 = .InsertItem(h,Null,"Task 3")
.AddBar(h3,"Task",{^2006-9-27},{^2006-9-29},"C")
h = .AddItem("Project 2")
h1 = .InsertItem(h,Null,"Task 1")
.AddBar(h1,"Task",{^2006-9-21},{^2006-9-23},"A")
h2 = .InsertItem(h,Null,"Task 2")
.AddBar(h2,"Task",{^2006-9-24},{^2006-9-26},"B")
h3 = .InsertItem(h,Null,"Task 3")
.AddBar(h3,"Task",{^2006-9-27},{^2006-9-29},"C")
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
903
|
What exBarEffort property represents
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-9}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 164
with .Bars.Item("Task")
.HistogramPattern = 256 && 0x100
.HistogramType = 1
endwith
endwith
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-10},{^2005-6-11},Null,"1/1=<b>100%")
.DefaultItem = h1
.ItemBar(0,Null,4) = 18
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",{^2005-6-12},{^2005-6-14},Null,"1/2=<b>50%")
.DefaultItem = h1
.ItemBar(0,Null,4) = 18
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",{^2005-6-15},{^2005-6-18},Null,"1/3=<b>33%")
.DefaultItem = h1
.ItemBar(0,Null,4) = 18
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",{^2005-6-19},{^2005-6-23},Null,"1/4=<b>25%")
.DefaultItem = h1
.ItemBar(0,Null,4) = 18
h1 = .AddItem("Task 5")
.AddBar(h1,"Task",{^2005-6-24},{^2005-6-29},Null,"1/5=<b>20%")
.DefaultItem = h1
.ItemBar(0,Null,4) = 18
endwith
.EndUpdate
endwith
|
|
902
|
Can I display multiple curves in the histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 64
with .Bars.Item("Task")
.Color = RGB(0,0,255)
.OverlaidType = 1
.OverlaidGroup = "Task2"
.HistogramCriticalColor = RGB(0,0,128)
.HistogramPattern = 512
.HistogramType = 1
endwith
with .Bars.Copy("Task","Task2")
.Color = RGB(0,255,0)
.OverlaidType = 1
.OverlaidGroup = "Task"
.HistogramCriticalColor = RGB(0,128,0)
.HistogramPattern = 512
.HistogramType = 1
endwith
endwith
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task2",{^2005-6-22},{^2005-6-26},0)
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-25},1)
.DefaultItem = h1
.ItemBar(0,0,21) = 3
.DefaultItem = h1
.ItemBar(0,1,21) = 4
h1 = .AddItem("Task 2")
.AddBar(h1,"Task2",{^2005-6-28},{^2005-6-30},0)
.AddBar(h1,"Task",{^2005-6-27},{^2005-7-1},1)
.DefaultItem = h1
.ItemBar(0,0,21) = 4
.DefaultItem = h1
.ItemBar(0,1,21) = 1
endwith
.EndUpdate
endwith
|
|
901
|
How can I use the exBarEffort property
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 64
.HistogramView = 112
with .Bars.Item("Task")
.HistogramCriticalColor = RGB(255,0,0)
.HistogramPattern = 512
.HistogramType = 1
endwith
endwith
with .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-25})
.DefaultItem = h1
.ItemBar(0,"",21) = 4
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",{^2005-6-27},{^2005-7-1})
.DefaultItem = h1
.ItemBar(0,"",21) = 1
endwith
.EndUpdate
endwith
|